﻿Imports VN.INS.BL.BC
Imports System.Data

Public Class atenciones_ingreso
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not (Page.IsPostBack)) Then
            If Request.QueryString("Error") = 1 Then
                alerta.Mostrar_Alerta("Alerta", "La sesión se ha perdido, debe loguearse nuevamente")
            End If

            txtusuario.Focus()
            Session("Nombre") = Nothing
            Session("DESCRIPCION") = Nothing
            Session("ABREVIATURA") = Nothing
            Session("Tabla") = Nothing
            Session("indice") = Nothing
            Session("ventana1") = Nothing
            Session("pass") = Nothing
            Session("usuario") = Nothing
            Session("perfil") = Nothing
            Session("jerarquia") = Nothing
            Session("puesto") = Nothing
            Session("nivel") = Nothing
            Session("user_mail") = Nothing
            Session("pageback") = Nothing
            Session("pageback_inc") = Nothing
            Session("pageback_afi") = Nothing
            Session("pageback_dig") = Nothing
            Session("pageback_osv") = Nothing
            Session("pageback_dcomercial") = Nothing
            Session("pageback_vdep") = Nothing
            Session("pageback_cdc") = Nothing
            Session("pageback_frmcambiorlegal") = Nothing
            Session("pageback_MaquinaImprinte_placa") = Nothing
            Session("pageback_DF7") = Nothing
            Session("spid") = Nothing
            Session("ultimo_canal") = Nothing
            'txtusuario.Text = "visitante"

            Session("GrillaPOA") = Nothing

            'txtcontraseña.Attributes.Add("value", "visi")
            Try
                'setea titulo del explorador
                Page.Title = "Sistema de Monitoreo"
                'Dim objusuario As UsuarioBC = New UsuarioBC()
                'If Not (Request.Cookies("atencion") Is Nothing) Then
                '    Dim aCookie As HttpCookie
                '    aCookie = New HttpCookie("atencion")
                '    aCookie.Expires = DateTime.Now.AddDays(-1)

                '    Response.Cookies.Add(aCookie)
                'End If

            Catch ex As Exception
                alerta.Mostrar_Alerta("Page Load", ex.Message())
            End Try
        End If
    End Sub

    Protected Sub ibn_aceptar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibn_aceptar.Click
        verfica_ingreso()
    End Sub

    Private Sub verfica_ingreso()
        errorcontraseña.Visible = False
        Dim objingresousuario As UsuarioBC = New UsuarioBC()
        Dim dtingresousuario As DataTable
        Dim ls_url As String = ""
        dtingresousuario = objingresousuario.ListaUsuario(txtusuario.Text.ToUpper, txtcontraseña.Text.ToUpper)
        If dtingresousuario.Rows.Count > 0 Then
            'valida contraseña            
            Session("usuario") = dtingresousuario.Rows(0)("USER_NAME").ToString()
            Session("perfil") = dtingresousuario.Rows(0)("perfil").ToString()
            Session("persona") = dtingresousuario.Rows(0)("PERSONA").ToString()
            Session("USER_ID") = dtingresousuario.Rows(0)("USUARIO").ToString()
            Session("pass") = dtingresousuario.Rows(0)("PASSWORD").ToString()
            Session("PPER") = dtingresousuario.Rows(0)("PPER").ToString()
            Session("OFICINA") = dtingresousuario.Rows(0)("OFICINA_ZONAL").ToString()
            Session("JEFE") = dtingresousuario.Rows(0)("JEFE_INMEDIATO").ToString()
            Session("TIPO") = dtingresousuario.Rows(0)("TIPO_PERSONA").ToString()
            Session("Nombre") = dtingresousuario.Rows(0)("NOMBRE").ToString()
            Session("DESCRIPCION") = dtingresousuario.Rows(0)("DESCRIPCION").ToString()
            Session("ABREVIATURA") = dtingresousuario.Rows(0)("ABREVIATURA").ToString()

            'Inserción a tabla Acceso_Sistema
            Dim objGeneral As New GeneralBC
            Dim Dt As New DataTable
            objGeneral.Acceso_Sistema(dtingresousuario.Rows(0)("USUARIO").ToString())

            'ABRIMOS EL FORMULARIO DE INICIO ASOCISADO AL PERFIL

            Dt = objGeneral.CargaAnoActivo()
            'Session("Año") = Now.Year.ToString
            Session("Año") = Dt.Rows(0).Item("DESCRIPCION").ToString
            Response.Redirect("Inicio.aspx", False)
        Else
            errorcontraseña.Text = "Error Contraseña"
            errorcontraseña.Visible = True
            txtcontraseña.Focus()
            txtcontraseña.Attributes.Add("value", "")
        End If
    End Sub
End Class
